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1 ZTITLE tsb CONCEALED = Extract concealed device and root directory’ 
MODULE LIBSEXTRACT CONCEALED ( ! Extract gonceaies device and root directory 
DENT = 'V04-000' ' File: LIBEXTCON.B32 Edit: 1-001 


3 BEGIN ; 


. 
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'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 
'w ALL RIGHTS RESERVED. 


'@ 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE 
'® ONLY IN ACCORDANCE WITH THF TERMS OF 

'w INCLUSION OF THE ABOVE COPYRIGHT NOTICE. T 
's COPIES THEREOF MAY NOT BE PROVIDED OR OTHE 
'w QTHER PERSON. NO TITLE TO AND OWNERSHIP O 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
M4 ee St NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONS 


BILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS 


I 
H NOT SUPPLIED BY DIGITAL. 
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'+¢ 
FACILITY: General Utility Library 
ABSTRACT: 


i 

i 

i This routine determines whether the device component of a file 

: specification is a concealed device, and if so, whether it also 
} specifies a root directory, and returns the concealed device and 
root directory. 

ENVIRONMENT: Runs at any access mode - AST reentrant 

| AUTHOR: Martin L. Jack, CREATION DATE: 19-Dec-1981 

MODIFIED BY: 


! 1-001 = Original. MLJ 19-Dec-1981 
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| SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
' 


LINKAGES: 


LINKAGE 
LINKAGE_JSB_3_6 


JSB(REGISTER=0 ZeREGISTERST. »REGISTER=2): 
NOPRESERVE (3,4 


LINKAGE_JSB_2_2 = JSB(REGISTER=0;REGISTER=1 ,REGISTER=2); 
| TABLE OF CONTENTS: 


FORWARD ROUTINE 


LIBSEXTRACT_CONCEALED; ! Extract concealed device and root directory 


INCLUDE FILES: 


LIBRARY ‘SYSSLIBRARY:LIB'; ! System symbols 


'w! REQUIRE 'RTLIN:RTLPSECT'; ! Define PSECT declarations macros 


i] 

MACROS: 

NONE 

EQUATED SYMBOLS: 

NONE 

| FIELDS: 

NONE 

PSECTS: 

ie! DECLARE PSECTS (LIB); ! Declare PSECTs for LIBS facility 
CODE = _LIBSCODE (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING _MODE (WORD _RELATIVE)), 
PLIT = “LIBSCODE (READ, NOWRITE, EXECUTE, SH HARE PIC RESSING? MODE WOR D7RELATIVE)) 
OWN = “LIBSDATA (READ, WRITE, NOEXECUTE, NOSHARE Pic’ DRESSING MODE (LONG RELATIVES) 
GLOBAL = _LIBSDATA (READ, WRITE, NOEXECU e OROSHARES ch OPRDRESS IRC. OnODE LONG. RELATIVES) ; 


OWN STORAGE: 
NONE 
i EXTERNAL REFERENCES: 
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NCEALED = Extract concealed device and root directory’ 
ACT CONCEALED ( ! Extract conceal d device and root directory 
! File specification 
oncealed device name 
} directory name 
' Length of CONCEALED_DEVICE 
! Length of ROOT_DIRECTORY 
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| FUNCTIONAL DESCRIPTION: 


This routine determines whether the device component of a file 
specification is a concealed device, and if so, whether it alsc 
specifies a root directory, and returns the concealed device and 
root directory. 


CALLING SEQUENCE: 


ret_status.wlc.v = LIBSEXTRACT_CONCEALED (file-spec.rt.dx, 
concealed-device.wt.dxi, breot~directory.w -dxJ, 
concealed-device-length.wwu.rJ, Croot-directory-Length.wwu.rJ) 


: FORMAL PARAMETERS: 


FILE_SPEC Address of a descriptor for the file 
specification to be analyzed. The string must 
not be longer than 255 characters. 


CONCEALED_DEVICE Address of a descriptor to receive the 
concealed device name. This is an optional 
output parameter. 


i 

i 

i 

i 

1 

i 

' 

' 

i 

i 

i 

i 

! 

' 

' 

i 

i 

i 

i 

i 

1 

: ROOT_DIRECTORY Address of a Sever ipter to receive the root 
} directory name, without brackets or dot. This 
! is an optional output parameter. If the file 
! specification does not specify a root 

! directory, this parameter receives a null 
string. 

i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


CONCEALED_DEVICE_LENGTH Address of a word to receive the number of 
characters written into concealed-device, not 
counting padding in the case of a fixed-(ength 
spring. f the output string is truncated to 
the size specified in the concealed-device 
string, concealed-device-length is set to this 
size. Therefore, cences) eg= evice-length can 
always be used by the calling program to access 
a valid substring of concealed-device. This is 
an optional output parameter, passed by 
reference. 


ROOT_DIRECTORY_LENGTH Address of a word to receive the number of 
characters written into root-directory, not 
counting padding in the case of a fixed-length 
string. the output string is truncated to 
the size specified in the root-directory 
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string, feerser ner cereesaneen is set to this 
size. Therefore, roo celrrccoryecengtn can 
seert be used by the calling program to access 
a valid substring of root-directory. is is 
an optional output parameter, passed by 
reference. 
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The output parameters are guaranteed to be stored only if the routine 
value is true. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 


LIBS_INVARG Required argument omitted, or file specification longer 
than 255 characters 


LIBS_STRTRU String truncated (qualified success) 


LIBS_INVFILSPE String does not represent a valid concealed device with 
optional root directory 


LIBSANALYZE_SDESC errors 
$TRNLOG errors 
LIBSSCOPY errors 


SIDE EFFECTS: 
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NONE 
BEGIN 
LOCAL 
FAB: S$FAB_DECL, ' FAB for SPARSE 
2 NAM: $NAM 4gaF ' NAM block for $PARSE 
2 ESA_BUFFER: VECTORCNAMSC_MAXRSS BYTE), ! Expanded string area 
3 INPOT_DESC: BLOCK DSC Sk _Z_BLNBITED «| Descriptor for input string 
2 RNLOG_DESC: BLOCK pace 7" BLN,BYTE),! bescrt tor for translated input strin 
2 TRNLOG-BUFFER: VECTORCLOGSC_RAMLENGTH, BYTE), ! Buffer for translated input str 
2 INPUT_CENGTH ! Length of compressed input 
§ INPUT“ADDRESS: REF VECTOR BYTE), ! Address of compressed input 
COMPRESS _CURSOR:REF VECTORL,BYTE), : foupor ery for upcase/compress 
2 DEV_LENGTH: WORD, ! Length of concealed device 
2 DIR_LENGTH: WORD, ! Length of root directory 
DIR_ADDRESS, ' Address of root cirer tory 
DELIMITER: BYTE, ' Closing directory delimiter 
STATUS_1, ! Status return 
STATUS _2, ! Status return 
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i Parse the input string to obtain the expanded name string. Ignore errors 
provided that a device name was actually returned. 


SPARSE (FAB=F AB); 
IF .NAMCNAM$SB_DEV] EQL 0 THEN RETURN LIBS_INVFILSPE; 


+ 
! Get a desc 
not initi 
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riptor for the input device specification. The high order word is 
alized because system services ignore this word. 


= .NAMCNAMSB DEV); 


INPUT DESCEDSC j 
ESCCDSC R} =" .NAMCNAMSC_DEV); 


INPUT=D 
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Woe 500 LIBSEXTRACT-CONCEALED = Extract conceated devic IacsepelORG $SiSeice © Lumse fe saesiabex teow $251 - a 
3 3 1 STATUS_3, ! Status return : 
: 4 § STATUS 4, ' Status return . 
; 2 TS eis ROUTINE _VALUE ; ! Final routine value : 
3 g 7 0235 ACTUALCOUNT, ! Determine argument count ; 
; 238 0236 ' LOCC instruction H 
: S76 8 f NULLPARAMETER; ! Test for null parameter : 
t Bh EB § ferme hes so coined parses ; 
; ' Ensure at the require arameter is present. ° 
248 O24) 3 I- iia : 
; 345 ie IF ACTUALCOUNT() EQL 0 THEN RETURN LIBS_INVARG; ; 
: gee 0245 '¢ : 
; 248 0246 ! Initialize RMS structures required to do a SPARSE. : 
; 249 0247 t= 
; 250 0248 
; 251 P b5e6 SFAB_INIT(FAB=FAB, 
3 526 250 AM=NAM) ; 
, 62 P 0251 SNAM_INIT (NAM=NAM 
3 254 P 0352 é ESA=ESA_BUFFER 
: 255 025 ESS=NAMSC_MAXRSS); 
; 256 0254 2 
3s 2or 0255 § '+ 
3 $28 O5e9 Analyze the input descriptor and set up the FAB filename descriptor. 
: 260 0258 
; 261 0259 BEGIN ! block to use output registers 
; 262 0260 REGISTER 
3; 263 0261 R1 = 1, 
: 264 02 ¢ R2 = 2; 
; 265 02 
: 266 0264 STATUS_1 = LIBSANALYZE_SDESC_R2(.FILE_SPEC; R1, R2); 
; 267 0265 IF NOT .STATUS_1 THEN RETURN’ .STATUS_T; 
; 268 0266 IF_.R1 GTRU 255 THEN RETURN LIBS_INVARG; 
: 269 0267 ; FABLFAB$B_FNS] = .R1; 
; 270 0268 FABCFABSL_FNAJ = .R2; 
; et 0269 END; ! block to use output registers 
; 0270 
3 02 
3 02 
; ost 
3 855 
3 8 7 
3 7 
: 7 
: 7 
? : 
; 028 
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ALED = Extract concealed devic B53 -1984 AX-11 - 
ALED = Extract concealed devic 14- Sep-1 38 6: ¢¢: 98 VASLIB’S fii 
stri 


i 
R 
ng containe B wildcard or a node name, internal RMS resources 
een consumed by SPARSE. Execute another SFARSE using the same FAB 
ull string to release these resources. 


raacrase ENS} = 0: 
SPARSE Crabs EPR); 


1+ 
; re text following a leading colon from the specification. 
BEGIN ! block to use output registers 
REGISTER 
RO = 0; 
LOCC(ZREF(2C":"), INPUT pester LENGTH], . INPUT REaCeRSCeA POINTER]; RO); 
INPUT =DESCCDSCSW “LENGTH] = T_BESCCOSC$w_LENGTA] - .RO; 

T block to Use output ria 


1+ 
a Translate the input device specification. 


INPUT_ADDRESS = TRNLOG BUFF ER; 
TRNLOG_DESCCDSC$B_CLASS] = DSC$K -CLASS 2; 

TRNLOG-DESCCDSCS$B_DTYPE] = DSC$K~D 

TRNLOG_DESCCDSCS$WILENGTH] = L eSO ON LENGTH: 

TRNLOG-DESCLDSCSA-POINTER] = . INP NPOT A ESS: 

STATUS_2 = $TRNLOG(LOGNAM=INPUT DESC. ORS EW TRNLOG_DESC, RSLBUF=TRNLOG_DESC); 
IF NOT~.STATUS_2 THEN RETURN .STATUS.2; 


14 
i If the string has no translation, it does not represent a concealed device 
t or root directory specification. 


IF .STATUS_2 EQL SS$_NOTRAN THEN RETURN LIBS_INVFILSPE; 


'¢ 
_Upcase and remove blanks, tabs, and nulls from the string. 


INPUT_LENGTH = - TRNLOG pescroscay LENGTH); 
COMPRESS CURSOR = .INPOT DDRESS;~ 
uch Oe PRON 0 TO input TCENGTHS} DO 


LOCAL 
CHARACTER: BYTE; ! Character from string 


CHARACTER = . INPUT ADDRESSC.NJ; 
LF CHARACTER NEQ ZC' ' AND .CHARACTER NEQ %0'011' AND .CHARACTER NEQ 0 


BEGIN 
IF .CHARACTER GEQU Z%C'a" AND .CHA 


RACTER LE U £C'2" 
THEN CHARACTER = CHARACTER - 1C‘a' C°A’; 
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1002000 LIBSEXTRACT_CONCEALED = Extract concealed devic 1 ~300 7138 96:98:98 VMSLIB’S SREIL iBEXTCON B82: (38 

> 347 45 4 COMPRESS_CURSOR(O] = .CHARACTER ; 
: 348 4g 4 COMPRESS CURSOR = .COMPRESS CURSOR + 1; : 
: 350 4 5 ; 
; 1 0 rk INPUT nLeNcr = .COMPRESS_CURSOR = .INPUT_ADDRESS; ; 
H § 8 31 DIR_LEN = 0; : 
; 354 0 ¢ ; 
3 399 035 BEGIN ! block to use output registers ; 
3; 300 0354 REGISTER : 
3 S57 0355 RO = 0, F 
; 358 8 2$ R1 = 1; ; 
; 359 5 : 
; 360 0358 + : 
3 3e) 0359 i Test the string for the form ‘'__any:any'’. If found, the portion of the : 
; o¢ tye t string ending with the colon iS°a valid concealed device. ; 
: 364 036 ; 
; 365 $3e8 IF .INPUT_LENGTH LSSU 3 THEN RETURN LIBS_INVFILSPE; ! Not long enough : 
; 366 0364 IF_.(. INPOT_ADDRESS)<0,16> NEQ '__ : 
$ ser 0365 THEN RETURN’ LIBS_INVFILSPE; No double underline found : 
; 368 0366 IF NOT LOCC(ZREFTZC':'), INPUT LENGTH, {nor ADDRESS; RO, R1) : 
; 369 0367 3 THEN RETURN LIB$_INVFILSPE; ' No Colon found ; 
; S70 0368 RO = .RO - 1; ! Adjust count/pointer to include colon ; 
: 371 0369 R1 = .R1 + 1; : 
3 Le: 0370 DEV_LENGTH = .R1 = .INPUT_ADDRESS; ! Length up to and including colon ; 
: He 0371 INPOT_ADDRESS = .R1; i Prune device from string 2 
; 374 B3e8 INPUT LENGTH = .RO; : 
3 S7$ 0373 2 END; T block to use output registers ; 
; 376 0374 § ; 
3; S77 0375 '¢ : 
3; sre 0376 i If there is no remaining string, exit with success, and no root ; 
3 144 0377 ! directory. 3 
; 380 0378 ie 3 
; «381 0379 : 
; $8 0380 IF .INPUT_LENGTH NEQ 0 : 
; 0381 THEN 3 
; 384 B356 BEGIN 3 
; $e7 b3e ; 3 
; 386 0384 4 BEGIN ! block to use output registers ; 
; 387 0385 4 REGIST 3 
: 388 0386 4 RO = 0, ; 
; 89 0387 4 Ris is REF VECTORC,BYTE); : 
: 390 baa8 4 : 
3s oP 389 4 '+ : 
; 0390 4 i Test the remaining string for the form “Lany.J", where angle brackets : 
; 39 391 4 ! may replace the square brackets. If found, this string is a valid : 
3 394 336 4 ! root directory. 3 
: 395 tor ? ie ; 
; 3 398 4 IF .INPUT_ADDRESSCO] NEQ ZC'C* AND .INPUT ~ApResseg) NEQ 2%C*<'" : 
; 398 96 4 THEN RETURN LIB$_INVFILSPE: directory delimiter 3 
; 399 % 4 DELIMITER = .INPOT ADDRESSEO) - 2¢°C* + xc’ a; " Get closing delimiter 3 
; 400 38 4 INPUT_ADDRESS = UIRPUT A + 1; '"Prune delimiter from string 3 
; 401 399 4 INPUT-LENGTH = . INPUT CENGIA = - 1; 3 
: soe 400 4 DIR ABD RESS = INPUT ADDRESS; ! Get pointer to beginning 3 
; 40 0401 4 DOCECEREF (3c°.*), INPUT_LENGTH, .INPUT_ADDRESS; RO, R1); ; 
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CONCEALED = Extract concealed devic 16-Sep-1984 02:26: AX-11 Bliss-32 V4.0-74 
CONCEALED = Extract concealed devic 122868718 4 9¢:98:98 VMSLIB.SRC CIBEXTCON. 69251 
IF a wee 2 THEN RETURN LIBS_INVFILSPE; ! Dot followed by ong gherecter 

IF .RIC1) NEQ DELIMITER THEN RETURN LIBS_INVFILSPE:; ! Wrong delimiter 

DIR_LENGTH = .R1 = .INPUT_ADDRESS; ! Get just intervening part 

END; ! block to use output registers 

END; 


14+ 


Set up to detect string truncation. 


ROUTINE _VALUE = SS$_NORMAL; 


+ 
! Reiurn the concealed device specification, if requested, and determine if 
} truncation occurred. 


IF NOT NULLPARAMETER(2) 
THEN 

BEGIN 

REGISTER 

R1 = 1 WORD; 

STATUS_3 = LIBSSCOPY R_DX6(.DEV_LENGTH, TRNLOG_BUFFER, .CONCEALED_DEVICE); 
IF NOT .STATUS_3 THER RETURN .STATUS 3; 
LIBSANALYZE_SDESC_R2(.CONCEALED_DEVICE; R1); 
IF .R1 LSSU”.DEV_CENGTH 
THEN 

BEGI 

DEV_LENGTH = .R1; 
ROUTINE VALUE = LIBS_STRTRU; 
END; 


'¢ 
Return the length of the concealed device specification if requested. 


if “wd NULLPARAME TER (4) 
(. CONCEALED_DEVICE_LENGTH)<0,16> = .DEV_LENGTH; 
'¢ 


i Return the root directory specification, if requested, and determine if 
truncation occurred. 


IF NOT NULLPARAMETER(3) 
THEN 
BEGIN 
REGISTER 
R1 = 1: WORD; 
Lies COPY R_DX6(.DIR_ LENGTH, .DIR_ADDRESS, .ROOT_DIRECTORY); 


S 
4 THER RETURN .STATUS_4: 
ESC_R2(.ROOT_DIRECTORY; R1); 
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LIBSEXTRACT_CON LIBSEXTRACT_CONCEALED = Extract concealed devic 16- Sep-1984 02:26: AX-11 Bliss-32 V4.0-74 P 0 
ibe 00 LIBSEXTRACTICONCEALED = Extract concealed devic Jecsepe19RG i3:fesc6  LOMScLe SResLasEXtCoN 682; 1 age 4 
; 461 45 IF .R1 LSSU .DIR_LENGTH 
ho ee 
> 464 4b¢ 4 DEV_LENGTH = .R1; 
; 465 465 4 ROUTINE VALUE = LIBS_STRTRU; 
; 46 464 END; 
; 46 465 END; 
: 285 sa 
; ay 489 a Return the length of the root directory specification if requested. 
: 47 Oe 
3 ars eat IF NOT NULLPARAMETER(S) 
: 475 b298 (.ROOT_DIRECTORY_LENGTH)<0,16> = .DIR_LENGTH; 
: Ons Oars 5 14 
: 478 047 i Return a jate stat 
479 ac? i. eturn appropriate status. 
> 481 0479 2 RETURN .ROUTINE_VALUE; 
; 482 0480 1 END; ! End of routine LIBSEXTRACT_CONCEALED 


«TITLE LIBSEXTRACT_CONCEALED RSOSEETRACS CONCEALED - E 
3 xtract concealed devic 
-IDENT \V04-000\ 


EXTRN LIBSSCOPY_R 2X6 
-EXTRN LIBSANALYZE"S R2 
-EXTRN LIBS_INVARG, hits STRTRU 
EXTRN LIBS INVF I ILSPE, SYSSPARSE 
EXTRN SYSSTRNLO 
.PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 ENTRY LIBSEXTRACT CONCEALED, Save R2,R3,R4,R5,R6,-; 0118 
58 000000006 00 0002 MOVAB LR SDESC_R2, R11 : 
5E FEOO CE of 0009 MOVAB SP ; 
6C 9 O00E TSTB > 0243 
48 13 0001 BEQL ; 
0050 =F 00 6E 00 2¢ 0012 MOVCS i. (SP), #0, #80, SRMS_PTR : 0250 
BO AD 500% F : O16 MOVW #20683. SRMS_PTR : 
C6 AD : 0 MOVB » SRMS_PTRF22 ; 
CF AD 9 2 MOVB * $RMS~ PTReS 1 ; 
D8 AD FF50 cD 3 MOVAB , SRMS_PTR#+40 ; 
0060 8F 00 6E a 0 C F movcS #0, (SP), “hon #96, SRMS_PTR > 0253 
FFSO CD 6002 i 0 MOVW #24578, SRMS_PTR ; 
FFSA CD 1 BE MNEGB SRAS _PTRT ; 
FFSC CD 50 AE MOVAB ESA BUFFER. RMS_PTR+12 ; 
0 04 AC p 48 MOVL FILE Sp > 0264 
: JSB KNA tYiee SDESC_R2 ; 
D E BLBC = STATU Us ; 0265 
QOOO0OFF BF 1 d10 CMPL =soRT, «#25 : 0266 
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NAM+57, INPUT_DESC 
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ioe eb00 LIBSEXTRACT-CONCEALED = Extract concealed devic 1 att 9§: ¢f: 98 VMSLIB.SR REIL IBEXTCON.B52;1 “sa Ry 
09 1F OOICF BLSSU 188 3 
14 at 101 TSTL ¢ (AP) : 
104 BEQL 16$ 3 
14 Bf 9 8B 106 MOV DIR LENGTH, @ROOT_DIRECTORY_LENGTH i; 0473 
7 00 aie 198: MOVL ROUTINE VALUE, R RO™ 3; 0479 
04 00100 178: RET ; 0480 
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LIBSEXTRACT_CON LIBSEXTRACT_CONCEALED = Extract concealed devic 16-Sep-1984 02:26: AX=-11 Blisg-32 V4.0-74 Page 14 
ibe~00 LIBSEXTRACT CONCEAL dD- Extrece concealed devic 127868} 382 96:99:98 VMSLIB.SRC LIBEXTCON-8$2:1 ° (4) 
3 «6 481 1 END ! End of module LIBSEXTRACT_CONCEALED 
; 188 8t83 Q ELUDOM x 
H PSECT SUMMARY 
; Name Bytes Attributes 
: _LIBSCODE 478 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
$ Library Statistics 
ieee ee as me £. ~ * Meee Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Time 
: .$255$DUA28: CSYSLIBILIB.L32;1 18619 69 0 1000 00:02.0 
; COMMAND QUALIFIERS 
H BLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:LIBEXTCON/OBJ=0BJ$:LIBEXTCON MSRC$:LIBEXTCON/UPDATE=(ENH$:LIBEXTCON 
Size: 478 code + 0 data bytes 
Ti 00:14.5 


Run Time: 

Elapsed Time: 00:16.7 
Lines/CPU Min: 1994 
Lexemes/CPU-Min: 20238 

; ganeey Used: 238 pages 
; Compila 


tion Complete 
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